1 ' *** OISAC 2 *** INFO-PRG ***
10 CLS:CLEAR:PRINTTAB(9)"*** INFO-PRG ***"TAB(9)"*** OISAC  2 ***":CLS
20 DEFSEG=0:FSB=PEEK1715+PEEK1716*256
30 PRINT"Etude de Px : ";:INPUT@1;NZP
40 PTR=FSB-15*NZP-15:ADP=PEEKPTR+PEEK(PTR+1)*256:AFP=PEEK(PTR+3)+PEEK(PTR+4)*256:NBRO=AFP-ADP
50 PRINT"Ptr Som. :"PTR;NBRO"octets";TAB(0)"Adr Debut:"ADP"Fin:"AFP
60 GOTO10